edibnb <- dsbox::edibnb
glimpse(edibnb)Rows: 13,245
Columns: 10
$ id <dbl> 15420, 24288, 38628, 44552, 47616,…
$ price <dbl> 80, 115, 46, 32, 100, 71, 175, 150…
$ neighbourhood <chr> "New Town", "Southside", NA, "Leit…
$ accommodates <dbl> 2, 4, 2, 2, 2, 3, 5, 5, 6, 10, 2, …
$ bathrooms <dbl> 1.0, 1.5, 1.0, 1.0, 1.0, 1.0, 1.0,…
$ bedrooms <dbl> 1, 2, 0, 1, 1, 1, 2, 3, 4, 4, 1, 1…
$ beds <dbl> 1, 2, 2, 1, 1, 2, 3, 4, 5, 7, 1, 1…
$ review_scores_rating <dbl> 99, 92, 94, 93, 98, 97, 100, 92, 9…
$ number_of_reviews <dbl> 283, 199, 52, 184, 32, 762, 7, 28,…
$ listing_url <chr> "https://www.airbnb.com/rooms/1542…
summary(edibnb) id price neighbourhood
Min. : 15420 Min. : 0.00 Length:13245
1st Qu.:13279107 1st Qu.: 49.00 Class :character
Median :20171841 Median : 75.00 Mode :character
Mean :20077242 Mean : 97.21
3rd Qu.:27397925 3rd Qu.:110.00
Max. :36066014 Max. :999.00
NA's :199
accommodates bathrooms bedrooms
Min. : 1.000 Min. :0.000 Min. : 0.000
1st Qu.: 2.000 1st Qu.:1.000 1st Qu.: 1.000
Median : 3.000 Median :1.000 Median : 1.000
Mean : 3.541 Mean :1.226 Mean : 1.583
3rd Qu.: 4.000 3rd Qu.:1.000 3rd Qu.: 2.000
Max. :19.000 Max. :9.000 Max. :13.000
NA's :12 NA's :4
beds review_scores_rating number_of_reviews
Min. : 0.000 Min. : 20.00 Min. : 0.00
1st Qu.: 1.000 1st Qu.: 93.00 1st Qu.: 2.00
Median : 2.000 Median : 97.00 Median : 12.00
Mean : 2.032 Mean : 95.02 Mean : 37.73
3rd Qu.: 3.000 3rd Qu.: 99.00 3rd Qu.: 45.00
Max. :30.000 Max. :100.00 Max. :773.00
NA's :15 NA's :2177
listing_url
Length:13245
Class :character
Mode :character
edibnb <- edibnb |>
mutate(
neighbourhood = fct_reorder(neighbourhood,
review_scores_rating,
.fun = median)
) |>
filter(!is.na(neighbourhood))